home *** CD-ROM | disk | FTP | other *** search
/ Animation How-To / Animation How-to CD.iso / PLY / CHAPTER5 / TUG / TUG4.PI < prev    next >
Text File  |  1994-01-01  |  64KB  |  2,446 lines
  1. start_frame 0
  2. end_frame 35
  3. total_frames 36
  4.  
  5. outfile "tug4"
  6.  
  7. include "\ply\colors.inc"
  8.  
  9. viewpoint {
  10.    from <10,15,-10>
  11.    at <2.5,2.5,2.5>
  12.    up <0,1,0>
  13.    angle 30
  14.    resolution 320,200
  15.    aspect 1.43
  16.    }
  17. background SkyBlue
  18.  
  19. define pi 3.14159
  20. define angle_nor frame*2*pi/total_frames
  21.  
  22. // little orbital repellers
  23.  
  24. define  fx1  2.5 + 5 * COS(angle_nor)
  25. define  fy1  2.5 + 5 * SIN(angle_nor)
  26. define  fz1  2.5
  27.  
  28. define  fx2  2.5 + 5 * COS(angle_nor)
  29. define  fy2  2.5
  30. define  fz2  2.5 - 5 * SIN(angle_nor)
  31.  
  32. define  fx3  2.5
  33. define  fy3  2.5 + 5 * SIN(angle_nor)
  34. define  fz3  2.5 - 5 * COS(angle_nor)
  35.  
  36. define  fx4 0
  37. define  fy4 0
  38. define  fz4 0
  39.  
  40. define  f  1
  41. define  p  2
  42.  
  43. object { 
  44.    sphere <fx1,fy1,fz1>,0.2
  45.    shading_flags 32 + 8 + 4 + 2 +1
  46.    shiny_yellow
  47. }
  48.  
  49. object { 
  50.    sphere <fx2,fy2,fz2>,0.2
  51.    shading_flags 32 + 8 + 4 + 2 +1
  52.    shiny_blue
  53. }
  54.  
  55. object { 
  56.    sphere <fx3,fy3,fz3>,0.2
  57.    shading_flags 32 + 8 + 4 + 2 +1
  58.    shiny_red
  59. }
  60.  
  61. light <0.8,0.8,0>, <fx1,fy1,fz1>
  62. light <0,0,0.8>, <fx2,fy2,fz2>
  63. light <0.8,0,0>, <fx3,fy3,fz3>
  64.  
  65. light white*0.5, <9,15,-10>
  66.  
  67.  
  68. ///////////////////////MAIN LOOP/////////////////////////////
  69.  
  70. define a 00
  71. define b 00
  72. define c 00
  73.  
  74. include "tug.inc"
  75.  
  76. define x000000 a + f1 * drx1 + f2 * drx2 + f3 * drx3 
  77. define y000000 b + f1 * dry1 + f2 * dry2 + f3 * dry3 
  78. define z000000 c + f1 * drz1 + f2 * drz2 + f3 * drz3 
  79.  
  80. object { sphere <x000000,y000000,z000000>,0.2 matte_white }
  81. define a 00
  82. define b 00
  83. define c 01
  84.  
  85. include "tug.inc"
  86.  
  87. define x000001 a + f1 * drx1 + f2 * drx2 + f3 * drx3 
  88. define y000001 b + f1 * dry1 + f2 * dry2 + f3 * dry3 
  89. define z000001 c + f1 * drz1 + f2 * drz2 + f3 * drz3 
  90.  
  91. object { sphere <x000001,y000001,z000001>,0.2 matte_white }
  92. define a 00
  93. define b 00
  94. define c 02
  95.  
  96. include "tug.inc"
  97.  
  98. define x000002 a + f1 * drx1 + f2 * drx2 + f3 * drx3 
  99. define y000002 b + f1 * dry1 + f2 * dry2 + f3 * dry3 
  100. define z000002 c + f1 * drz1 + f2 * drz2 + f3 * drz3 
  101.  
  102. object { sphere <x000002,y000002,z000002>,0.2 matte_white }
  103. define a 00
  104. define b 00
  105. define c 03
  106.  
  107. include "tug.inc"
  108.  
  109. define x000003 a + f1 * drx1 + f2 * drx2 + f3 * drx3 
  110. define y000003 b + f1 * dry1 + f2 * dry2 + f3 * dry3 
  111. define z000003 c + f1 * drz1 + f2 * drz2 + f3 * drz3 
  112.  
  113. object { sphere <x000003,y000003,z000003>,0.2 matte_white }
  114. define a 00
  115. define b 00
  116. define c 04
  117.  
  118. include "tug.inc"
  119.  
  120. define x000004 a + f1 * drx1 + f2 * drx2 + f3 * drx3 
  121. define y000004 b + f1 * dry1 + f2 * dry2 + f3 * dry3 
  122. define z000004 c + f1 * drz1 + f2 * drz2 + f3 * drz3 
  123.  
  124. object { sphere <x000004,y000004,z000004>,0.2 matte_white }
  125. define a 00
  126. define b 00
  127. define c 05
  128.  
  129. include "tug.inc"
  130.  
  131. define x000005 a + f1 * drx1 + f2 * drx2 + f3 * drx3 
  132. define y000005 b + f1 * dry1 + f2 * dry2 + f3 * dry3 
  133. define z000005 c + f1 * drz1 + f2 * drz2 + f3 * drz3 
  134.  
  135. object { sphere <x000005,y000005,z000005>,0.2 matte_white }
  136. define a 00
  137. define b 01
  138. define c 00
  139.  
  140. include "tug.inc"
  141.  
  142. define x000100 a + f1 * drx1 + f2 * drx2 + f3 * drx3 
  143. define y000100 b + f1 * dry1 + f2 * dry2 + f3 * dry3 
  144. define z000100 c + f1 * drz1 + f2 * drz2 + f3 * drz3 
  145.  
  146. object { sphere <x000100,y000100,z000100>,0.2 matte_white }
  147. define a 00
  148. define b 01
  149. define c 01
  150.  
  151. include "tug.inc"
  152.  
  153. define x000101 a + f1 * drx1 + f2 * drx2 + f3 * drx3 
  154. define y000101 b + f1 * dry1 + f2 * dry2 + f3 * dry3 
  155. define z000101 c + f1 * drz1 + f2 * drz2 + f3 * drz3 
  156.  
  157. object { sphere <x000101,y000101,z000101>,0.2 matte_white }
  158. define a 00
  159. define b 01
  160. define c 02
  161.  
  162. include "tug.inc"
  163.  
  164. define x000102 a + f1 * drx1 + f2 * drx2 + f3 * drx3 
  165. define y000102 b + f1 * dry1 + f2 * dry2 + f3 * dry3 
  166. define z000102 c + f1 * drz1 + f2 * drz2 + f3 * drz3 
  167.  
  168. object { sphere <x000102,y000102,z000102>,0.2 matte_white }
  169. define a 00
  170. define b 01
  171. define c 03
  172.  
  173. include "tug.inc"
  174.  
  175. define x000103 a + f1 * drx1 + f2 * drx2 + f3 * drx3 
  176. define y000103 b + f1 * dry1 + f2 * dry2 + f3 * dry3 
  177. define z000103 c + f1 * drz1 + f2 * drz2 + f3 * drz3 
  178.  
  179. object { sphere <x000103,y000103,z000103>,0.2 matte_white }
  180. define a 00
  181. define b 01
  182. define c 04
  183.  
  184. include "tug.inc"
  185.  
  186. define x000104 a + f1 * drx1 + f2 * drx2 + f3 * drx3 
  187. define y000104 b + f1 * dry1 + f2 * dry2 + f3 * dry3 
  188. define z000104 c + f1 * drz1 + f2 * drz2 + f3 * drz3 
  189.  
  190. object { sphere <x000104,y000104,z000104>,0.2 matte_white }
  191. define a 00
  192. define b 01
  193. define c 05
  194.  
  195. include "tug.inc"
  196.  
  197. define x000105 a + f1 * drx1 + f2 * drx2 + f3 * drx3 
  198. define y000105 b + f1 * dry1 + f2 * dry2 + f3 * dry3 
  199. define z000105 c + f1 * drz1 + f2 * drz2 + f3 * drz3 
  200.  
  201. object { sphere <x000105,y000105,z000105>,0.2 matte_white }
  202. define a 00
  203. define b 02
  204. define c 00
  205.  
  206. include "tug.inc"
  207.  
  208. define x000200 a + f1 * drx1 + f2 * drx2 + f3 * drx3 
  209. define y000200 b + f1 * dry1 + f2 * dry2 + f3 * dry3 
  210. define z000200 c + f1 * drz1 + f2 * drz2 + f3 * drz3 
  211.  
  212. object { sphere <x000200,y000200,z000200>,0.2 matte_white }
  213. define a 00
  214. define b 02
  215. define c 01
  216.  
  217. include "tug.inc"
  218.  
  219. define x000201 a + f1 * drx1 + f2 * drx2 + f3 * drx3 
  220. define y000201 b + f1 * dry1 + f2 * dry2 + f3 * dry3 
  221. define z000201 c + f1 * drz1 + f2 * drz2 + f3 * drz3 
  222.  
  223. object { sphere <x000201,y000201,z000201>,0.2 matte_white }
  224. define a 00
  225. define b 02
  226. define c 02
  227.  
  228. include "tug.inc"
  229.  
  230. define x000202 a + f1 * drx1 + f2 * drx2 + f3 * drx3 
  231. define y000202 b + f1 * dry1 + f2 * dry2 + f3 * dry3 
  232. define z000202 c + f1 * drz1 + f2 * drz2 + f3 * drz3 
  233.  
  234. object { sphere <x000202,y000202,z000202>,0.2 matte_white }
  235. define a 00
  236. define b 02
  237. define c 03
  238.  
  239. include "tug.inc"
  240.  
  241. define x000203 a + f1 * drx1 + f2 * drx2 + f3 * drx3 
  242. define y000203 b + f1 * dry1 + f2 * dry2 + f3 * dry3 
  243. define z000203 c + f1 * drz1 + f2 * drz2 + f3 * drz3 
  244.  
  245. object { sphere <x000203,y000203,z000203>,0.2 matte_white }
  246. define a 00
  247. define b 02
  248. define c 04
  249.  
  250. include "tug.inc"
  251.  
  252. define x000204 a + f1 * drx1 + f2 * drx2 + f3 * drx3 
  253. define y000204 b + f1 * dry1 + f2 * dry2 + f3 * dry3 
  254. define z000204 c + f1 * drz1 + f2 * drz2 + f3 * drz3 
  255.  
  256. object { sphere <x000204,y000204,z000204>,0.2 matte_white }
  257. define a 00
  258. define b 02
  259. define c 05
  260.  
  261. include "tug.inc"
  262.  
  263. define x000205 a + f1 * drx1 + f2 * drx2 + f3 * drx3 
  264. define y000205 b + f1 * dry1 + f2 * dry2 + f3 * dry3 
  265. define z000205 c + f1 * drz1 + f2 * drz2 + f3 * drz3 
  266.  
  267. object { sphere <x000205,y000205,z000205>,0.2 matte_white }
  268. define a 00
  269. define b 03
  270. define c 00
  271.  
  272. include "tug.inc"
  273.  
  274. define x000300 a + f1 * drx1 + f2 * drx2 + f3 * drx3 
  275. define y000300 b + f1 * dry1 + f2 * dry2 + f3 * dry3 
  276. define z000300 c + f1 * drz1 + f2 * drz2 + f3 * drz3 
  277.  
  278. object { sphere <x000300,y000300,z000300>,0.2 matte_white }
  279. define a 00
  280. define b 03
  281. define c 01
  282.  
  283. include "tug.inc"
  284.  
  285. define x000301 a + f1 * drx1 + f2 * drx2 + f3 * drx3 
  286. define y000301 b + f1 * dry1 + f2 * dry2 + f3 * dry3 
  287. define z000301 c + f1 * drz1 + f2 * drz2 + f3 * drz3 
  288.  
  289. object { sphere <x000301,y000301,z000301>,0.2 matte_white }
  290. define a 00
  291. define b 03
  292. define c 02
  293.  
  294. include "tug.inc"
  295.  
  296. define x000302 a + f1 * drx1 + f2 * drx2 + f3 * drx3 
  297. define y000302 b + f1 * dry1 + f2 * dry2 + f3 * dry3 
  298. define z000302 c + f1 * drz1 + f2 * drz2 + f3 * drz3 
  299.  
  300. object { sphere <x000302,y000302,z000302>,0.2 matte_white }
  301. define a 00
  302. define b 03
  303. define c 03
  304.  
  305. include "tug.inc"
  306.  
  307. define x000303 a + f1 * drx1 + f2 * drx2 + f3 * drx3 
  308. define y000303 b + f1 * dry1 + f2 * dry2 + f3 * dry3 
  309. define z000303 c + f1 * drz1 + f2 * drz2 + f3 * drz3 
  310.  
  311. object { sphere <x000303,y000303,z000303>,0.2 matte_white }
  312. define a 00
  313. define b 03
  314. define c 04
  315.  
  316. include "tug.inc"
  317.  
  318. define x000304 a + f1 * drx1 + f2 * drx2 + f3 * drx3 
  319. define y000304 b + f1 * dry1 + f2 * dry2 + f3 * dry3 
  320. define z000304 c + f1 * drz1 + f2 * drz2 + f3 * drz3 
  321.  
  322. object { sphere <x000304,y000304,z000304>,0.2 matte_white }
  323. define a 00
  324. define b 03
  325. define c 05
  326.  
  327. include "tug.inc"
  328.  
  329. define x000305 a + f1 * drx1 + f2 * drx2 + f3 * drx3 
  330. define y000305 b + f1 * dry1 + f2 * dry2 + f3 * dry3 
  331. define z000305 c + f1 * drz1 + f2 * drz2 + f3 * drz3 
  332.  
  333. object { sphere <x000305,y000305,z000305>,0.2 matte_white }
  334. define a 00
  335. define b 04
  336. define c